(define (y f)
  ((lambda (x) (x x))
   (lambda (g)
     (f (lambda (arg) ((g g) arg))))))

(define scm-main
  ((y (lambda (f)
        (lambda (n)
          (if (= n 20000)
              0
              (begin (print "y") (f (+ n 1))))))) 0))
